<!--#Include File="Include.asp"--><%
'--------------------------------------
'Power By 方卡在线 @2010-2014 f02
'URL:http://www.fangka.net/
'EMail:admin@ifangka.com
'QQ:861118936
'版权所有 未经允许不得去除本版权信息
'--------------------------------------

Dim PageCode,PageUrl,PageType,PageSuffix
Dim PageTemplate
Set FKTemplate=New Cls_Template
PageSuffix=FullHtmlSuffix
PageNow=Request.QueryString("Page")
If PageNow<>"" Then
	PageNow=Clng(PageNow)
Else
	PageNow=1
End If

SearchStr=FKFun.HTMLEncode(Trim(Request.QueryString("SearchStr")))
PageTemplate=LCase(FKFun.HTMLEncode(Trim(Request.QueryString("Template"))))

If SearchStr="" Then
	Call FKFun.AlertInfo("请输入搜索关键字！",1)
End If
If PageTemplate="" Then
	PageTemplate="search"
End If

PageCode=FKTemplate.GetTemplate(PageTemplate)
PageCode=FKTemplate.FileChange(PageCode)
PageCode=FKTemplate.SiteChange(PageCode)
PageCode=FKTemplate.SearchChange(PageCode)
PageCode=FKTemplate.TemplateChange(PageCode)

Response.Write(PageCode)
Call FKFun.PageEnd()
%>